create or replace package m4o_dbg as

  p_level pls_integer := 0;

  -- ===========================================================================
  function enabled return boolean;
  -- ===========================================================================
  procedure enable(i_level in pls_integer := 2);
  -- ===========================================================================
  procedure disable;
  -- ===========================================================================
  procedure p(
    i_str     in varchar2,
    i_uplevel in pls_integer := 0);
end;
/
